### Setup
rm(list=ls())
source("reg-pic.R")

### Candidate selection
load("../fits/select.RData")

plotplist(post[[1]],
          vars=c("(int)", "emph.europe", "big3", "ingov", "propseats",
                 "pro_anti_eu", "natselect2"),
          vars.names=c("Intercept", "EU Emphasis", "Big 3", "In Govt.",
                       "% Seats", "Pro/Anti EU", "Nat. Selection"),
          base.group="inc",
          other.groups=c("non", "reg", "nat"),
          group.names=c("0", "R", "N"))

load("../fits/open.RData")

plotplist(post[[1]],
          vars=c("(int)", "emph.europe", "big3", "ingov", "propseats",
                 "pro_anti_eu", "open.dummy"),
          vars.names=c("Intercept", "EU Emphasis", "Big 3", "In Govt.",
                       "% Seats", "Pro/Anti EU", "Open List"),
          base.group="inc",
          other.groups=c("non", "reg", "nat"),
          group.names=c("0", "R", "N"))

load("../fits/open-int.RData")

plotplist(post[[1]],
          vars=c("(int)", "emph.europe", "big3", "ingov", "propseats",
                 "pro_anti_eu", "open.dummy", "openXemph"),
          vars.names=c("Intercept", "EU Emphasis", "Big 3", "In Govt.",
                       "% Seats", "Pro/Anti EU", "Open List",
                       "OpenxEUEmph"),
          base.group="inc",
          other.groups=c("non", "reg", "nat"),
          group.names=c("0", "R", "N"))